5 GOSUB60000 10 C=53280:S=53265:D=59516:E=65126:POKEC,34:POKEC+1,2:POKE808,234 20 PRINT"[147]"TAB(44)"PUT THE DISK TO GUARD OR UN-GUARD" 30 PRINTTAB(12)"IN THE DISK DRIVE." 40 PRINTTAB(47)" PRESS ANY KEY WHEN READY ":GOSUB240:POKE198,0:WAIT198,1 50 PRINTTAB(13)"[145][158] WARNING!! ":PRINT" ONCE GUARDED, ONLY RE-FORMATTING OR" 60 PRINTTAB(2)"USING THIS PROGRAM WILL AGAIN ALLOW" 70 PRINT" WRITING TO THIS DISK.":PRINTTAB(11)" CONTINUE? (Y/N)":GOSUB240 80 GETK$:IFK$="N"THEN250 90 IFK$<>"Y"THEN80 100 PRINTTAB(16)"[145][153] OKAY " 110 OPEN15,8,15,"I":OPEN8,8,8,"#":PRINT#15,"UA:"8;0;18;0:PRINT#15,"B-P:"8;2 120 PRINTTAB(43)"ENTER 'G'[146] TO GUARD THE DISK, OR..." 130 PRINTTAB(9)"'U'[146] TO UN-GUARD THE DISK...":GOSUB240 140 GETK$:IFK$<>"G"ANDK$<>"U"THEN140 150 P$="UN-GUARDED.":IFK$="G"THENP$="GUARDED..." 160 PRINTTAB(16)"[145][159] OKAY ":PRINTTAB(43)" THE DISK IS NOW BEING "P$"[158]":GOSUB240 170 IFK$="G"THEN210 180 PRINT#8,"A";:PRINT#15,"M-W";CHR$(1);CHR$(1);CHR$(1);CHR$(65) 190 PRINT#15,"M-W";CHR$(2);CHR$(7);CHR$(1);CHR$(65) 200 PRINT#15,"B-P:"8,165:PRINT#8,"2A";:GOTO220 210 PRINT#8,"4";:PRINT#15,"B-P:"8,165:PRINT#8,"WG";: 220 PRINT#15,"UB:"8;0;18;0:CLOSE8:PRINT#15,"I":CLOSE15:FORI=1TO2000:NEXT 230 POKES,11:PRINTTAB(240)TAB(255)"[155] ALL DONE [154]":GOTO260 240 FORI=1TO20:PRINT"* [158]";:NEXT:PRINT:POKEC,(PEEK(C)AND15)+1:RETURN 250 PRINTTAB(50)" PROGRAM ABORTED " 260 POKES,27:FORI=1TO1500:NEXT:POKE808,237:GOTO63000 60000 T$=" ":C=0:C$="":PRINT"[147]":POKE53281,0 60030 PRINTSPC(7)""T$:PRINTSPC(7)" [215]RITE [199]UARD [146]" 60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY" 60060 PRINT:PRINTSPC(14)"[210].[215]. [203]OBER" 60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985" 60080 PRINT:PRINT:PRINT:PRINT" [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN." 60090 PRINT:PRINT" [208]LEASE RESPECT THE AUTHOR'S RIGHTS." 60100 PRINT:PRINT" [208]RESS SPACE BAR TO CONTINUE." 60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130 60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C) 60125 NEXT:GOTO60100 60130 PRINTC$:RETURN 63000 REM CONNECT TO L.S. 63010 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN" 63020 POKE631,13:POKE632,13:POKE198,2: END